home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Big Mouth 14
/
Big_Mouth_The_14_1997_-_Side_D.d64
/
the main menu_bm
(
.txt
)
< prev
Wrap
Commodore BASIC
|
2023-02-26
|
1KB
|
38 lines
1 rem" "bm staff eyes only!(NULL)
2 poke 808,234:poke 53280,0:poke 53281,0
4 fort=1 to 500:next
6 print"[147][155] - the big mouth magazine -"
8 fort=1 to 2000:next
10 print"[147]"
15 fort=1 to 500:next
20 printtab(7)"the big mouth - main menu"
30 print"a - super dominoes brothers test 1"
31 print"b - super dominoes brothers test 2"
32 print"c - super dominoes brothers test 3"
33 print"d - super dominoes brothers test 4"
34 print"e - super dominoes brothers test 5"
35 print"f - super dominoes brothers instructions"
36 print"[145]g - arcade compilation"
37 print"h - solitaire"
50 print"pick a program to load (a-h) ?"
55 get a$:if a$="" then 55
60 a=asc(a$):if a-64<1 or a-64>8 then 55
65 if a-64=8 then 108
70 forx=49152 to 49170:ready:poke x,y:next x
75 print" loading your selection - please wait"
76 sys 49152
77 data 120,169,013,141,040,003,169,192
78 data 141,041,003,088,096,238,032,208
79 data 076,237,246
80 on a-64 goto 101,102,103,104,105,106,107
100 :
101 load"sp.dominoes bros",8,1
102 print"code: 3521":load"super db test 2",8,1
103 print"code: 8191":load"super db test 3",8,1
104 print"code: 0975":load"super db test 4",8,1
105 print"code: 7708":load"super db test 5",8,1
106 load"instructions.sdb",8,1
107 load"arcade compil/ba",8,1
108 print"load"chr$(34)" solitaire "chr$(34)",8":print"run[145][145][145][145][145][145][145][145]"
109 new